home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / supr2.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  185 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3.  
  4. on moveMan direction
  5.   put stepNo + 1 into stepNo
  6.   if direction = 8 then
  7.     put 0 into moveH
  8.     put -9 into moveV
  9.     put 0 into RmoveH
  10.     put -72 into RmoveV
  11.     put 19 into startCast
  12.     put 22 into endCast
  13.   else if direction = 2 then
  14.     put 0 into moveH
  15.     put 9 into moveV
  16.     put 0 into RmoveH
  17.     put 72 into RmoveV
  18.     put 15 into startCast
  19.     put 18 into endCast
  20.   else if direction = 4 then
  21.     put -12 into moveH
  22.     put 0 into moveV
  23.     put -48 into RmoveH
  24.     put 0 into RmoveV
  25.     put 23 into startCast
  26.     put 26 into endCast
  27.   else if direction = 6 then
  28.     put 12 into moveH
  29.     put 0 into moveV
  30.     put 48 into RmoveH
  31.     put 0 into RmoveV
  32.     put 27 into startCast
  33.     put 30 into endCast
  34.   end if
  35.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  36.     SET THE CASTNUM OF SPRITE 13 TO startCast
  37.     UPDATESTAGE
  38.     mMove girl1
  39.     mMove girl2
  40.     EXIT
  41.   END IF
  42.   if direction = 2 then
  43.     repeat with spno in gEntranceList
  44.       if sprite 14 intersects spno then
  45.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  46.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  47.         UPDATESTAGE
  48.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  49.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  50.         UPDATESTAGE
  51.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  52.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  53.         UPDATESTAGE
  54.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  55.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  56.         UPDATESTAGE
  57.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  58.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  59.         UPDATESTAGE
  60.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  61.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  62.         UPDATESTAGE
  63.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  64.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  65.         UPDATESTAGE
  66.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  67.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 12
  68.         UPDATESTAGE
  69.         put 152 into manH
  70.         put 155 into manV
  71.         put 144 into raderH
  72.         put 146 into raderV
  73.         play done
  74.         exit
  75.       end if
  76.     end repeat
  77.   end if
  78.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  79.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  80.   updateStage
  81.   if stepNo >= 5 then
  82.     repeat with spno in gGirlList
  83.       if sprite 14 intersects spno then
  84.         if random(20) = 2 then
  85.           go to marker(1)
  86.           
  87.           nanpa
  88.           
  89.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  90.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  91.           put 0 into stepNo
  92.           exit
  93.         end if
  94.         put getaProp(gMovieList,spno) into movieNo
  95.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  96.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  97.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  98.         puppetSprite 48, False
  99.         updateStage
  100.         sound stop 1
  101.         put "S" into movieName
  102.         playQTMovie
  103.         
  104.         put value(Hpoint) into thisHpoint
  105.         if thisHpoint > 0 then
  106.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  107.         else
  108.           put abs(thisHpoint) into Hpoint
  109.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  110.         end if
  111.         put totalHpoint + thisHpoint into totalHpoint
  112.         put totalHpoint into field "Hpoint"
  113.         put 0 into stepNo
  114.         EXIT
  115.       END IF
  116.     END REPEAT
  117.   end if
  118.   repeat with spno in gBlockList
  119.     if sprite 14 intersects spno then
  120.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  121.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  122.       UPDATESTAGE
  123.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  124.       UPDATESTAGE
  125.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  126.       UPDATESTAGE
  127.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  128.       UPDATESTAGE
  129.       SET THE CASTNUM OF SPRITE 13 TO startCast
  130.       UPDATESTAGE
  131.       mMove girl1
  132.       mMove girl2
  133.       EXIT
  134.     end if
  135.   end repeat
  136.   IF NOT(SPRITE 14 WITHIN 3) THEN
  137.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  138.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  139.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  140.     UPDATESTAGE
  141.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  142.     UPDATESTAGE
  143.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  144.     UPDATESTAGE
  145.     SET THE CASTNUM OF SPRITE 13 TO startCast
  146.     UPDATESTAGE
  147.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  148.     UPDATESTAGE
  149.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  150.     UPDATESTAGE
  151.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  152.     UPDATESTAGE
  153.     SET THE CASTNUM OF SPRITE 13 TO startCast
  154.     UPDATESTAGE
  155.     mMove girl1
  156.     mMove girl2
  157.   ELSE
  158.     if direction = 8 or direction = 2 then
  159.       put 2 into step
  160.     else
  161.       put 1 into step
  162.     end if
  163.     repeat with i = 1 to step
  164.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  165.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  166.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  167.       UPDATESTAGE
  168.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  169.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  170.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  171.       UPDATESTAGE
  172.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  173.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  174.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  175.       UPDATESTAGE
  176.       SET THE CASTNUM OF SPRITE 13 TO startCast
  177.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  178.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  179.       UPDATESTAGE
  180.     end repeat
  181.     mMove girl1
  182.     mMove girl2
  183.   END IF
  184. end
  185.